home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-11_1989_-_de_Side_B.d64 / sp.char yexp+col (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  860b  |  26 lines
  1. 0 plot   = 49152 : line    = pl+3  :      clear  = pl+6  : recht   = pl+9
  2. 1 setup  = pl+12 : show    = pl+15 :      mem    = pl+18 : ellipse = pl+21
  3. 2 test   = pl+24 : invert  = pl+27 :      speich = pl+30 : left    = pl+33
  4. 3 right  = pl+36 : hard    = pl+39 :      up     = pl+42 : down    = pl+45
  5. 4 write  = pl+48 : zmem    = pl+51 :      copy   = pl+54 : w2      = pl+57
  6. 5 ssetup = pl+60 : charset = pl+63 :      laden  = pl+66
  7. 10 poke53281,0:poke53280,0:print"[147]please wait..."
  8. 15 sys sh,0,0,0,0,0
  9. 20 sys mem,32,32
  10. 25 sys setup ,100,55:sys clear
  11. 30 sys zmem,53248,0,0
  12. 40 a$="message four"
  13. 45 fors=1tolen(a$):b$=mid$(a$,s,1)
  14. 50 fori=0to7
  15. 60 for a=1to3:rem 3=vergr.faktor
  16. 70 sys ch,8,i+1,i,0
  17. 80 sys wr,x,y,b$+chr$(13)
  18. 90 y=y+1
  19. 100 next
  20. 110 next
  21. 120 y=0:x=x+8:next
  22. 130 fori=0to9:readf(i):next:print"[147]"
  23. 140 fori=0to9:sys sh,1,1,f(i),1,0:sys se,85,110:forj=0to20:next:next
  24. 150 goto140
  25. 1000 data 0,11,12,15,1,1,15,12,11,0
  26.